# pak::pak("r-lib/cli")
library(cli)
devtools::load_all()
options(cli.ansi = TRUE, cli.progress_show_after = 0)

raise_mixed <- function(x) {
  r <- runif(1)
  if (r < 0.4) {
    warning("Column 'Lot_Area' has non-finite values that may affect model fitting")
  } else if (r < 0.7) {
    stop("RBF kernel requires at least one non-negative bandwidth parameter")
  } else if (r < 0.85) {
    warning("prediction from rank-deficient fit; consider predict(., rankdeficient=\"NA\")")
  }
  x
}

set.seed(123)
res <- tune::tune_grid(
  parsnip::nearest_neighbor("regression", "kknn", dist_power = tune()),
  Sale_Price ~ .,
  rsample::vfold_cv(modeldata::ames[, c(72, 30:45)], 10),
  grid = 5,
  control = tune::control_grid(extract = raise_mixed)
)